From: John Paul Wallington <jpw@pobox.com>
Date: Sun, 8 Aug 2004 22:53:11 +0000 (+0000)
Subject: (define-ibuffer-column size): Use string-to-number instead of string-to-int.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~21446
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ed5a4d54e41b98f89e468023684c6e6cdfb13759;p=emacs.git

(define-ibuffer-column size): Use string-to-number instead of string-to-int.
(define-ibuffer-column mode): Fix indentation.
---

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 140f2995292..f013f8e3c72 100644
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -1644,16 +1644,17 @@ If point is on a group name, this function operates on that group."
        (dolist (string column-strings)
 	 (setq total
 	       ;; like, ewww ...
-	       (+ (float (string-to-int string))
+	       (+ (float (string-to-number string))
 		  total)))
        (format "%.0f" total))))
   (format "%s" (buffer-size)))
 
-(define-ibuffer-column mode (:inline t
-			     :props
-			     ('mouse-face 'highlight
-			      'keymap ibuffer-mode-name-map
-			      'help-echo "mouse-2: filter by this mode"))
+(define-ibuffer-column mode
+  (:inline t
+   :props
+   ('mouse-face 'highlight
+		'keymap ibuffer-mode-name-map
+		'help-echo "mouse-2: filter by this mode"))
   (format "%s" mode-name))
 
 (define-ibuffer-column process
@@ -2198,7 +2199,7 @@ Try to restore the previous window configuration iff
 `ibuffer-restore-window-config-on-quit' is non-nil."
   (interactive)
   (if ibuffer-restore-window-config-on-quit
-      (progn 
+      (progn
 	(bury-buffer)
 	(unless (= (count-windows) 1)
 	  (set-window-configuration ibuffer-prev-window-config)))